/*
 * flow.ss
 *
 */

#define forever		1 while pop
#define endforever	0 wend pop

#define if		dup while pop
#define endif		0 wend pop

#define whileeq		duptwo sub not while pop pop
#define endwhileeq	wend

#define ifeq		dup whileeq pop
#define endifeq		0 endwhileeq pop
